home *** CD-ROM | disk | FTP | other *** search
/ Suzy B Software 2 / Suzy B Software CD-ROM 2 (1994).iso / extras / falcon / falclib5 / routs / savefile.s < prev    next >
Text File  |  1995-04-27  |  378b  |  32 lines
  1. *
  2. * SAVEFILE.S
  3. *
  4. *    @savefile
  5. *
  6. *    Saves data as a file.
  7. *
  8. * In    a5.l=adr. till nollavslutat filnamn
  9. *    a6.l=source
  10. *    d7.l=fillängd
  11. *    
  12.  
  13.     include    gem.s
  14.  
  15.  
  16. @savefile
  17.     move    #0,-(sp)    create file
  18.     move.l    a5,-(sp)
  19.     @gemdos    $3c,8
  20.     move    d0,d6
  21.  
  22.     move.l    a6,-(sp)    write
  23.     move.l    d7,-(sp)
  24.     move    d6,-(sp)
  25.     @gemdos    $40,12
  26.  
  27.     move    d6,-(sp)    close
  28.     @gemdos    $3e,4
  29.     
  30.     rts
  31.  
  32.